home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
LOGIC Apps
/
Logic-APPLE_II_APPS.iso
/
pc
/
LOGIC Apple II 5.25" Library - ProDOS
/
PRO021.dsk
/
VSCAN.bas
< prev
Wrap
BASIC Source File
|
2012-02-16
|
1KB
|
23 lines
100 HOME : PRINT "VSCAN -- Copyright 1985 Morgan Davis"
110 ONERR GOTO 130
120 & STR$(36,61): PRINT : PRINT : POKE 222,0: POKE 216,0
130 IF NOT PEEK(222) THEN 150
140 PRINT : PRINT "AmperWorks not installed!": PRINT : END
150 DIM ST$(12),SP%(12),F$(500)
160 INPUT "Directory to scan: ";DIR$: & UCASE(DIR$)
170 INPUT " Output to slot #: ";SLOT$
180 IF SLOT$ >"0" AND SLOT$ <"6" THEN PRINT CHR$(4)"PR#"SLOT$
190 POKE 34,6: VTAB 6: PRINT
200 IF LEFT$(DIR$,1) < >"/" THEN DIR$ = "/" +DIR$
210 IF RIGHT$(DIR$,1) < >"/" THEN DIR$ = DIR$ +"/"
220 ST$(0) = DIR$: PRINT "Directory: "DIR$: PRINT :SP% = 0
230 ST%(SP%) = 0
240 I = ST%(SP%)
250 & FILES(ST$(SP%),F$),F: & SRT(F$,F)
260 I = I +1:ST%(SP%) = I
270 IF I >F THEN SP% = SP% -1: IF SP% > = 0 THEN 240
280 IF SP% <0 THEN POKE 34,0: VTAB 23: PRINT CHR$(4)"PR#0": END
290 PRINT SPC( (SP% +1) *6)F$(I)
300 & /ST$(SP%) +F$(I),I$
310 ON ASC( MID$ (I$,5)) < >15 GOTO 260
320 SP% = SP% +1:ST$(SP%) = ST$(SP% -1) +F$(I) +"/": GOTO 230